home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 176-200 / scopedisk180 / rxmenu2 / runf1.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  631b  |  18 lines
  1. /* RunForward macro.  6/29/90 by Steven D. Kapplin     */
  2. /* Accepts command plus arguments, then opens a shell    */
  3. /* window to run command.  To close shell window, click*/
  4. /* on close gadget.  Automatically adjusts to screen   */
  5. /* size and creates shell window equal to screensize/2 */
  6. /* and positions window at bottom of screen.           */
  7. /* This is special version for use with ArexxMenu.rexx */
  8. /*******************************************************/
  9.  
  10. parse arg cmd parms
  11.  
  12. hite = 200    /* screenhite/2      */
  13. ypos = 260    /* screenhite - hite */
  14.  
  15. run 'newwsh con:0/'||ypos||'/640/'||hite||'//c CMD ' || cmd || parms
  16.  
  17. exit
  18.